home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicmsd.zip
/
KEYIN.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
798b
|
25 lines
0 rem *
1 rem *
2 rem *__KEYIN_TEST_FOR_NITROUSBASIC_
3 rem *
4 rem *
5 IN$ =""
7 MAXOUT =30 :CURRENT =0
10 cls
15 print "Start entering data and watch the word-wrap:"
16 print "|" ;string$ (MAXOUT -2 ,asc ("-" ));"|"
20 CH$ =inkey$ :if CH$ ="" then goto 20
30 if CH$ =chr$ (13 )then goto 5000
40 if CH$ =chr$ (8 )and CURRENT =0 then goto 20
50 if CH$ =chr$ (8 )then CURRENT =CURRENT -1 :gosub 6000 :goto 20
60 print CH$ ;:CURRENT =CURRENT +1
65 IN$ =IN$ +CH$
70 if CH$ =chr$ (32 )and CURRENT >MAXOUT then CURRENT =0 :print :goto 20
100 goto 20
5000 print :print "The string is: '" ;IN$ ;"'"
5010 end
6000 rem __PROCESS_BACKSPACE__
6010 print chr$ (8 );" " ;chr$ (8 );
6020 if len (IN$ )=1 then IN$ ="" :return
6030 IN$ =left$ (IN$ ,len (IN$ )-1 ):return